home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / game / patch / WHDIGamesU-Z.lzh / games / Xenomorph.lha / xenomorph-install / Install next >
Text File  |  1998-03-21  |  1KB  |  65 lines
  1.  
  2. ;----------------------------
  3.  
  4. ;try to figure out a place where the user usually installs his games
  5. (if (exists "Games:" (noreq) )
  6.     (set @default-dest "Games:")
  7.     (if (exists "SYS:Games" (noreq) )
  8.         (set @default-dest "SYS:Games")
  9.         (if (exists "Work:Games" (noreq) )
  10.             (set @default-dest "Work:Games")
  11.             (set @default-dest "RAM:")
  12.         )
  13.     )
  14. )
  15.  
  16.  
  17. (set @default-dest
  18. (askdir
  19.     (prompt ("Where should %s installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  20.     (help @askdir-help)
  21.     (default @default-dest)
  22.     (disk)
  23. )
  24. )
  25.  
  26. (set #dest (tackon @default-dest @app-name))
  27.  
  28. (set #CI_drive "DF0:")
  29.  
  30. (makedir #dest
  31.     (help @makedir-help)
  32.     (infos)
  33. )
  34.  
  35. ;----------------------------
  36.  
  37.  
  38.  
  39. (message ("\nPlease insert Xenomorph disk 1 into DF0:"))
  40.  
  41.     (if
  42.         (= 0 (run ("disk2file 0 T:X1")))
  43.         ("")
  44.         (abort "\"disk2file\" must be in your PATH !")
  45.     )
  46.  
  47. (message ("\nPlease insert Xenomorph disk 2 into DF0:"))
  48.  
  49.     (if
  50.         (= 0 (run ("disk2file 0 T:X2")))
  51.         ("")
  52.         (abort "\"disk2file\" must be in your PATH !")
  53.     )
  54.  
  55. (run ("xeno-x"))
  56. (run ("copy #? \"%s\"" #dest))
  57.  
  58. (delete ("%s/disk2file" #dest))
  59. (delete ("%s/xeno-x" #dest))
  60. (delete ("%s/install" #dest)
  61.     (infos)
  62. )
  63.  
  64.  
  65.